home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aaf.d64 / func.file'exists < prev    next >
Text File  |  2007-02-28  |  244b  |  12 lines
  1. 0010 //
  2. 0020 ╞╒╬├ FILE'EXISTS(FILENAME$) ├╠╧╙┼─
  3. 0030   ╘╥┴╨ 
  4. 0040     ╧╨┼╬ ╞╔╠┼ 79,FILENAME$,╥┼┴─
  5. 0050     ├╠╧╙┼ ╞╔╠┼ 79
  6. 0060     ╥┼╘╒╥╬ ╘╥╒┼
  7. 0070   ╚┴╬─╠┼╥ 
  8. 0080     ├╠╧╙┼ ╞╔╠┼ 79
  9. 0090     ╥┼╘╒╥╬ ╞┴╠╙┼
  10. 0100   ┼╬─╘╥┴╨ 
  11. 0110 ┼╬─╞╒╬├ FILE'EXISTS
  12.